/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / DIR64.BIN / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 52 45 4d 20 44 | 49 52 45 43 54 4f 52 59 |10 REM D|IRECTORY|
|00000010| 20 4f 4e 20 41 20 4c 41 | 42 45 4c 20 50 52 4f 47 | ON A LA|BEL PROG|
|00000020| 52 41 4d 0a 32 30 20 52 | 45 4d 20 46 4f 52 20 54 |RAM.20 R|EM FOR T|
|00000030| 48 45 20 43 36 34 20 42 | 59 20 50 41 55 4c 20 4d |HE C64 B|Y PAUL M|
|00000040| 41 43 44 4f 4e 41 4c 44 | 0a 33 30 20 52 45 4d 20 |ACDONALD|.30 REM |
|00000050| 32 20 4a 41 4e 55 41 52 | 59 20 38 36 0a 34 30 20 |2 JANUAR|Y 86.40 |
|00000060| 52 45 4d 20 50 49 45 43 | 45 53 20 4c 41 52 47 45 |REM PIEC|ES LARGE|
|00000070| 20 41 4e 44 20 53 4d 41 | 4c 4c 20 46 52 4f 4d 20 | AND SMA|LL FROM |
|00000080| 4f 54 48 45 52 20 50 55 | 42 4c 49 43 20 44 4f 4d |OTHER PU|BLIC DOM|
|00000090| 41 49 4e 20 44 49 52 45 | 43 54 4f 52 59 20 50 52 |AIN DIRE|CTORY PR|
|000000a0| 4f 47 52 41 4d 53 0a 35 | 30 20 52 45 4d 20 57 4f |OGRAMS.5|0 REM WO|
|000000b0| 52 4b 53 20 57 49 54 48 | 20 45 50 53 4f 4e 20 52 |RKS WITH| EPSON R|
|000000c0| 58 2d 38 30 20 50 52 49 | 4e 54 45 52 53 20 41 4e |X-80 PRI|NTERS AN|
|000000d0| 44 20 43 4f 4d 50 41 54 | 49 42 4c 45 53 20 55 53 |D COMPAT|IBLES US|
|000000e0| 49 4e 47 20 53 54 41 4e | 44 41 52 44 0a 36 30 20 |ING STAN|DARD.60 |
|000000f0| 52 45 4d 20 33 20 31 2f | 32 22 20 58 20 31 35 2f |REM 3 1/|2" X 15/|
|00000100| 31 36 22 20 4c 41 42 45 | 4c 53 0a 37 30 20 52 45 |16" LABE|LS.70 RE|
|00000110| 4d 20 41 43 43 4f 4d 4d | 4f 44 41 54 45 53 20 33 |M ACCOMM|ODATES 3|
|00000120| 33 20 44 49 52 45 43 54 | 4f 52 59 20 45 4e 54 52 |3 DIRECT|ORY ENTR|
|00000130| 49 45 53 20 41 53 20 57 | 45 4c 4c 20 41 53 20 44 |IES AS W|ELL AS D|
|00000140| 49 53 4b 20 4e 41 4d 45 | 2c 20 53 49 5a 45 2c 20 |ISK NAME|, SIZE, |
|00000150| 41 4e 44 0a 38 30 20 52 | 45 4d 20 54 49 54 4c 45 |AND.80 R|EM TITLE|
|00000160| 20 4f 4e 20 45 41 43 48 | 20 4c 41 42 45 4c 2e 20 | ON EACH| LABEL. |
|00000170| 53 4b 49 50 53 20 54 4f | 20 4e 45 58 54 20 4c 41 |SKIPS TO| NEXT LA|
|00000180| 42 45 4c 20 54 4f 20 43 | 4f 4d 50 4c 45 54 45 20 |BEL TO C|OMPLETE |
|00000190| 4c 41 52 47 45 52 20 4c | 49 53 54 49 4e 47 53 0a |LARGER L|ISTINGS.|
|000001a0| 39 30 20 52 45 4d 0a 31 | 30 30 20 43 4c 4f 53 45 |90 REM.1|00 CLOSE|
|000001b0| 33 3a 4f 50 45 4e 33 2c | 34 2c 34 0a 31 31 30 20 |3:OPEN3,|4,4.110 |
|000001c0| 50 52 49 4e 54 23 33 2c | 43 48 52 24 28 32 37 29 |PRINT#3,|CHR$(27)|
|000001d0| 3b 22 d3 22 3b 43 48 52 | 24 28 31 29 3a 50 52 49 |;".";CHR|$(1):PRI|
|000001e0| 4e 54 23 33 2c 43 48 52 | 24 28 31 35 29 3a 50 52 |NT#3,CHR|$(15):PR|
|000001f0| 49 4e 54 23 33 2c 43 48 | 52 24 28 32 37 29 3b 22 |INT#3,CH|R$(27);"|
|00000200| c1 22 3b 43 48 52 24 28 | 35 29 0a 31 32 30 20 44 |.";CHR$(|5).120 D|
|00000210| 49 4d 46 58 24 28 32 35 | 36 29 2c 46 54 24 28 32 |IMFX$(25|6),FT$(2|
|00000220| 35 36 29 2c 46 4c 28 32 | 35 36 29 2c 54 54 28 32 |56),FL(2|56),TT(2|
|00000230| 35 36 29 0a 31 33 30 20 | 50 52 49 4e 54 22 93 11 |56).130 |PRINT"..|
|00000240| 11 1d 1d c1 4c 49 47 4e | 20 50 52 49 4e 54 20 48 |....LIGN| PRINT H|
|00000250| 45 41 44 20 57 49 54 48 | 20 54 4f 50 20 4f 46 20 |EAD WITH| TOP OF |
|00000260| 4c 41 42 45 4c 2e 11 22 | 0a 31 34 30 20 4e 3d 2d |LABEL.."|.140 N=-|
|00000270| 31 3a 46 4f 52 49 3d 31 | 54 4f 32 35 36 3a 46 58 |1:FORI=1|TO256:FX|
|00000280| 24 28 49 29 3d 22 22 3a | 4e 45 58 54 0a 31 35 30 |$(I)="":|NEXT.150|
|00000290| 20 42 4c 24 3d 22 20 22 | 3a 46 4f 52 49 3d 31 54 | BL$=" "|:FORI=1T|
|000002a0| 4f 34 30 3a 42 4c 24 3d | 42 4c 24 2b 22 a0 22 3a |O40:BL$=|BL$+".":|
|000002b0| 4e 45 58 54 0a 31 36 30 | 20 43 4c 4f 53 45 31 35 |NEXT.160| CLOSE15|
|000002c0| 3a 4f 50 45 4e 31 35 2c | 38 2c 31 35 3a 4f 50 45 |:OPEN15,|8,15:OPE|
|000002d0| 4e 31 2c 38 2c 30 2c 22 | 24 30 22 3a 47 4f 53 55 |N1,8,0,"|$0":GOSU|
|000002e0| 42 35 31 30 3a 47 45 54 | 23 31 2c 41 24 2c 42 24 |B510:GET|#1,A$,B$|
|000002f0| 0a 31 37 30 20 57 3d 36 | 30 3a 4c 24 3d 22 22 3a |.170 W=6|0:L$="":|
|00000300| 49 4e 50 55 54 22 1d 1d | c5 4e 54 45 52 20 54 49 |INPUT"..|.NTER TI|
|00000310| 54 4c 45 20 2d 2d 3e 20 | 22 3b 4c 24 0a 31 38 30 |TLE --> |";L$.180|
|00000320| 20 49 46 4c 45 4e 28 4c | 24 29 3e 31 36 54 48 45 | IFLEN(L|$)>16THE|
|00000330| 4e 20 50 52 49 4e 54 22 | 4c 41 42 45 4c 20 53 54 |N PRINT"|LABEL ST|
|00000340| 52 49 4e 47 20 54 4f 4f | 20 4c 4f 4e 47 2d 4d 41 |RING TOO| LONG-MA|
|00000350| 58 20 49 53 20 31 36 20 | 43 48 41 52 41 43 54 45 |X IS 16 |CHARACTE|
|00000360| 52 53 2e 22 3a 47 4f 54 | 4f 31 37 30 0a 31 39 30 |RS.":GOT|O170.190|
|00000370| 20 47 45 54 23 31 2c 41 | 24 2c 42 24 3a 47 45 54 | GET#1,A|$,B$:GET|
|00000380| 23 31 2c 41 24 2c 42 24 | 3a 43 3d 30 3a 49 46 41 |#1,A$,B$|:C=0:IFA|
|00000390| 24 3c 3e 22 22 54 48 45 | 4e 43 3d 41 53 43 28 41 |$<>""THE|NC=ASC(A|
|000003a0| 24 29 0a 32 30 30 20 49 | 46 20 42 24 3c 3e 22 22 |$).200 I|F B$<>""|
|000003b0| 20 54 48 45 4e 20 43 3d | 43 2b 41 53 43 28 42 24 | THEN C=|C+ASC(B$|
|000003c0| 29 2a 32 35 36 0a 32 31 | 30 20 4e 3d 4e 2b 31 3a |)*256.21|0 N=N+1:|
|000003d0| 46 4c 28 4e 29 3d 43 0a | 32 32 30 20 47 45 54 23 |FL(N)=C.|220 GET#|
|000003e0| 31 2c 42 24 3a 49 46 20 | 53 54 3c 3e 30 20 54 48 |1,B$:IF |ST<>0 TH|
|000003f0| 45 4e 20 33 31 30 0a 32 | 33 30 20 49 46 20 42 24 |EN 310.2|30 IF B$|
|00000400| 3c 3e 43 48 52 24 28 33 | 34 29 20 54 48 45 4e 32 |<>CHR$(3|4) THEN2|
|00000410| 32 30 0a 32 34 30 20 4e | 24 3d 22 22 0a 32 35 30 |20.240 N|$="".250|
|00000420| 20 47 45 54 23 31 2c 42 | 24 3a 49 46 42 24 3c 3e | GET#1,B|$:IFB$<>|
|00000430| 43 48 52 24 28 33 34 29 | 54 48 45 4e 4e 24 3d 4e |CHR$(34)|THENN$=N|
|00000440| 24 2b 42 24 3a 47 4f 54 | 4f 32 35 30 0a 32 36 30 |$+B$:GOT|O250.260|
|00000450| 20 46 58 24 28 4e 29 3d | 4e 24 0a 32 37 30 20 47 | FX$(N)=|N$.270 G|
|00000460| 45 54 23 31 2c 42 24 3a | 49 46 20 42 24 3d 43 48 |ET#1,B$:|IF B$=CH|
|00000470| 52 24 28 33 32 29 20 54 | 48 45 4e 32 37 30 0a 32 |R$(32) T|HEN270.2|
|00000480| 38 30 20 43 24 3d 22 22 | 0a 32 39 30 20 43 24 3d |80 C$=""|.290 C$=|
|00000490| 43 24 2b 42 24 3a 47 45 | 54 23 31 2c 42 24 3a 49 |C$+B$:GE|T#1,B$:I|
|000004a0| 46 20 42 24 3c 3e 22 22 | 20 20 54 48 45 4e 32 39 |F B$<>""|  THEN29|
|000004b0| 30 0a 33 30 30 20 46 54 | 24 28 4e 29 3d 4c 45 46 |0.300 FT|$(N)=LEF|
|000004c0| 54 24 28 43 24 2c 33 29 | 3a 49 46 53 54 3d 30 54 |T$(C$,3)|:IFST=0T|
|000004d0| 48 45 4e 31 39 30 0a 33 | 31 30 20 43 4c 4f 53 45 |HEN190.3|10 CLOSE|
|000004e0| 31 3a 42 46 3d 46 4c 28 | 4e 29 3a 4e 3d 4e 2d 31 |1:BF=FL(|N):N=N-1|
|000004f0| 3a 47 4f 53 55 42 36 31 | 30 0a 33 32 30 20 50 3d |:GOSUB61|0.320 P=|
|00000500| 49 4e 54 28 28 42 46 2a | 31 30 30 2f 36 36 34 29 |INT((BF*|100/664)|
|00000510| 2b 2e 35 29 3a 50 24 3d | 4d 49 44 24 28 53 54 52 |+.5):P$=|MID$(STR|
|00000520| 24 28 50 29 2c 32 29 0a | 33 33 30 20 54 09 0a 33 |$(P),2).|330 T..3|
|00000530| 34 30 20 54 24 3d 22 20 | 2a 22 2b 46 58 24 28 30 |40 T$=" |*"+FX$(0|
|00000540| 29 2b 53 54 52 24 28 42 | 46 29 2b 22 20 42 4c 4f |)+STR$(B|F)+" BLO|
|00000550| 43 4b 53 20 28 22 2b 50 | 24 2b 22 25 29 20 46 52 |CKS ("+P|$+"%) FR|
|00000560| 45 45 22 0a 33 35 30 20 | 49 46 4c 24 3d 22 22 54 |EE".350 |IFL$=""T|
|00000570| 48 45 4e 54 24 3d 54 24 | 2b 4d 49 44 24 28 42 4c |HENT$=T$|+MID$(BL|
|00000580| 24 2c 31 2c 57 2d 4c 45 | 4e 28 54 24 29 2d 31 29 |$,1,W-LE|N(T$)-1)|
|00000590| 3a 47 4f 54 4f 33 37 30 | 0a 33 36 30 20 4b 3d 57 |:GOTO370|.360 K=W|
|000005a0| 2d 32 2d 4c 45 4e 28 54 | 24 29 2d 4c 45 4e 28 4c |-2-LEN(T|$)-LEN(L|
|000005b0| 24 29 3a 54 24 3d 54 24 | 2b 4d 49 44 24 28 42 4c |$):T$=T$|+MID$(BL|
|000005c0| 24 2c 31 2c 4b 2d 31 29 | 2b 22 28 22 2b 4c 24 2b |$,1,K-1)|+"("+L$+|
|000005d0| 22 29 22 0a 33 37 30 20 | 54 24 3d 54 24 2b 22 20 |")".370 |T$=T$+" |
|000005e0| 20 22 3a 50 52 49 4e 54 | 23 33 2c 54 24 3a 51 3d | ":PRINT|#3,T$:Q=|
|000005f0| 31 31 0a 33 38 30 20 4c | 3d 39 3a 4b 3d 49 4e 54 |11.380 L|=9:K=INT|
|00000600| 28 28 4e 2b 31 29 2f 33 | 29 3a 46 4f 52 49 3d 31 |((N+1)/3|):FORI=1|
|00000610| 54 4f 4b 0a 33 38 35 20 | 49 46 51 3e 30 54 48 45 |TOK.385 |IFQ>0THE|
|00000620| 4e 33 39 30 0a 33 38 36 | 20 50 52 49 4e 54 23 33 |N390.386| PRINT#3|
|00000630| 2c 43 48 52 24 28 32 37 | 29 3b 22 ca 22 3b 43 48 |,CHR$(27|);".";CH|
|00000640| 52 24 28 31 36 29 3a 51 | 3d 31 31 0a 33 39 30 20 |R$(16):Q|=11.390 |
|00000650| 54 24 3d 43 48 52 24 28 | 58 29 3a 4a 3d 49 3a 47 |T$=CHR$(|X):J=I:G|
|00000660| 4f 53 55 42 35 35 30 3a | 54 24 3d 54 24 2b 22 20 |OSUB550:|T$=T$+" |
|00000670| 22 3a 4a 3d 4b 2b 49 3a | 47 4f 53 55 42 35 35 30 |":J=K+I:|GOSUB550|
|00000680| 3a 54 24 3d 54 24 2b 22 | 20 20 22 0a 34 30 30 20 |:T$=T$+"|  ".400 |
|00000690| 4a 3d 28 32 2a 4b 29 2b | 49 3a 47 4f 53 55 42 35 |J=(2*K)+|I:GOSUB5|
|000006a0| 35 30 3a 54 24 3d 54 24 | 2b 22 20 20 22 0a 34 31 |50:T$=T$|+"  ".41|
|000006b0| 30 20 54 24 3d 4d 49 44 | 24 28 54 24 2c 35 2c 31 |0 T$=MID|$(T$,5,1|
|000006c0| 39 29 2b 22 20 20 22 2b | 4d 49 44 24 28 54 24 2c |9)+"  "+|MID$(T$,|
|000006d0| 33 31 2c 31 38 29 2b 22 | 20 20 22 2b 4d 49 44 24 |31,18)+"|  "+MID$|
|000006e0| 28 54 24 2c 35 37 2c 31 | 38 29 0a 34 32 30 20 50 |(T$,57,1|8).420 P|
|000006f0| 52 49 4e 54 23 33 2c 54 | 24 20 3a 4c 3d 4c 2b 31 |RINT#3,T|$ :L=L+1|
|00000700| 3a 51 3d 51 2d 31 3a 4e | 45 58 54 0a 34 33 30 20 |:Q=Q-1:N|EXT.430 |
|00000710| 49 46 51 3d 30 54 48 45 | 4e 34 35 30 0a 34 34 30 |IFQ=0THE|N450.440|
|00000720| 20 46 4f 52 58 3d 31 54 | 4f 51 2d 33 3a 50 52 49 | FORX=1T|OQ-3:PRI|
|00000730| 4e 54 23 33 2c 43 48 52 | 24 28 32 37 29 3b 22 ca |NT#3,CHR|$(27);".|
|00000740| 22 3b 43 48 52 24 28 31 | 35 29 3a 4e 45 58 54 3a |";CHR$(1|5):NEXT:|
|00000750| 50 52 49 4e 54 23 33 2c | 43 48 52 24 28 32 37 29 |PRINT#3,|CHR$(27)|
|00000760| 3b 22 ca 22 3b 43 48 52 | 24 28 31 29 0a 34 35 30 |;".";CHR|$(1).450|
|00000770| 20 50 52 49 4e 54 22 93 | 11 11 1d 09 00 4e 53 45 | PRINT".|.....NSE|
|00000780| 52 54 20 4e 45 57 20 44 | 49 53 4b 20 46 4f 52 20 |RT NEW D|ISK FOR |
|00000790| 4e 45 58 54 20 4c 41 42 | 45 4c 20 41 4e 44 22 0a |NEXT LAB|EL AND".|
|000007a0| 34 36 30 20 50 52 49 4e | 54 22 20 20 50 52 45 53 |460 PRIN|T"  PRES|
|000007b0| 53 20 d2 c5 d4 d5 d2 ce | 2c 20 4f 52 20 50 52 45 |S ......|, OR PRE|
|000007c0| 53 53 20 41 4e 59 20 4f | 54 48 45 52 20 4b 45 59 |SS ANY O|THER KEY|
|000007d0| 22 0a 34 37 30 20 50 52 | 49 4e 54 22 20 20 54 4f |".470 PR|INT"  TO|
|000007e0| 20 51 55 49 54 2e 11 22 | 0a 34 38 30 20 47 45 54 | QUIT.."|.480 GET|
|000007f0| 4b 45 24 3a 49 46 4b 45 | 24 3d 22 22 54 48 45 4e |KE$:IFKE|$=""THEN|
|00000800| 34 38 30 0a 34 39 30 20 | 49 46 4b 45 24 3d 43 48 |480.490 |IFKE$=CH|
|00000810| 52 24 28 31 33 29 54 48 | 45 4e 31 34 30 0a 35 30 |R$(13)TH|EN140.50|
|00000820| 30 20 43 4c 4f 53 45 33 | 3a 43 4c 4f 53 45 31 35 |0 CLOSE3|:CLOSE15|
|00000830| 3a 45 4e 44 0a 35 31 30 | 20 49 4e 50 55 54 23 31 |:END.510| INPUT#1|
|00000840| 35 2c 45 52 2c 45 52 24 | 3a 49 46 45 52 3c 32 30 |5,ER,ER$|:IFER<20|
|00000850| 54 48 45 4e 52 45 54 55 | 52 4e 0a 35 32 30 20 49 |THENRETU|RN.520 I|
|00000860| 46 45 52 3d 37 34 4f 52 | 45 52 3d 32 31 54 48 45 |FER=74OR|ER=21THE|
|00000870| 4e 45 52 24 3d 22 20 20 | 22 2b 45 52 24 2b 22 2d |NER$="  |"+ER$+"-|
|00000880| 2d 49 53 20 44 49 53 4b | 20 49 4e 53 45 52 54 45 |-IS DISK| INSERTE|
|00000890| 44 3f 22 3a 47 4f 54 4f | 35 34 30 0a 35 33 30 20 |D?":GOTO|540.530 |
|000008a0| 45 52 24 3d 22 44 49 53 | 4b 20 45 52 52 4f 52 22 |ER$="DIS|K ERROR"|
|000008b0| 2b 53 54 52 24 28 45 52 | 29 2b 22 3a 20 22 2b 45 |+STR$(ER|)+": "+E|
|000008c0| 52 24 0a 35 34 30 20 50 | 52 49 4e 54 45 52 24 3a |R$.540 P|RINTER$:|
|000008d0| 45 4e 44 0a 35 35 30 20 | 54 3d 54 54 28 4a 29 3a |END.550 |T=TT(J):|
|000008e0| 49 46 54 3d 30 54 48 45 | 4e 54 24 3d 54 24 2b 4d |IFT=0THE|NT$=T$+M|
|000008f0| 49 44 24 28 42 4c 24 2c | 31 2c 32 34 29 3a 52 45 |ID$(BL$,|1,24):RE|
|00000900| 54 55 52 4e 0a 35 36 30 | 20 49 46 46 4c 28 54 29 |TURN.560| IFFL(T)|
|00000910| 3c 31 30 30 54 48 45 4e | 54 24 3d 54 24 2b 22 a0 |<100THEN|T$=T$+".|
|00000920| 22 0a 35 37 30 20 49 46 | 46 4c 28 54 29 3c 31 30 |".570 IF|FL(T)<10|
|00000930| 54 48 45 4e 54 24 3d 54 | 24 2b 22 a0 22 0a 35 38 |THENT$=T|$+".".58|
|00000940| 30 20 54 24 3d 54 24 2b | 4d 49 44 24 28 53 54 52 |0 T$=T$+|MID$(STR|
|00000950| 24 28 46 4c 28 54 29 29 | 2c 32 29 2b 22 a0 22 2b |$(FL(T))|,2)+"."+|
|00000960| 46 58 24 28 54 29 0a 35 | 39 30 20 49 46 20 4c 45 |FX$(T).5|90 IF LE|
|00000970| 4e 28 46 58 24 28 54 29 | 29 3c 31 36 54 48 45 4e |N(FX$(T)|)<16THEN|
|00000980| 54 24 3d 54 24 2b 4d 49 | 44 24 28 42 4c 24 2c 31 |T$=T$+MI|D$(BL$,1|
|00000990| 2c 31 36 2d 4c 45 4e 28 | 46 58 24 28 54 29 29 29 |,16-LEN(|FX$(T)))|
|000009a0| 0a 36 30 30 20 54 24 3d | 54 24 2b 22 a0 22 2b 4c |.600 T$=|T$+"."+L|
|000009b0| 45 46 54 24 28 46 54 24 | 28 54 29 2c 33 29 3a 52 |EFT$(FT$|(T),3):R|
|000009c0| 45 54 55 52 4e 0a 36 31 | 30 20 46 4f 52 20 49 3d |ETURN.61|0 FOR I=|
|000009d0| 31 20 54 4f 20 4e 20 3a | 20 54 54 28 49 29 3d 49 |1 TO N :| TT(I)=I|
|000009e0| 20 3a 20 4e 45 58 54 0a | 36 32 30 20 46 4f 52 09 | : NEXT.|620 FOR.|
|000009f0| 0a 36 33 30 20 4e 45 58 | 54 20 4a 20 3a 20 49 46 |.630 NEX|T J : IF|
|00000a00| 20 53 3c 3e 49 20 54 48 | 45 4e 20 54 3d 54 54 28 | S<>I TH|EN T=TT(|
|00000a10| 49 29 20 3a 20 54 54 28 | 49 29 3d 54 54 28 53 29 |I) : TT(|I)=TT(S)|
|00000a20| 20 3a 20 54 54 28 53 29 | 3d 54 0a 36 34 30 20 4e | : TT(S)|=T.640 N|
|00000a30| 45 58 54 20 49 20 3a 20 | 52 45 54 55 52 4e 0a    |EXT I : |RETURN. |
+--------+-------------------------+-------------------------+--------+--------+